home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / HUGS1 / Report < prev   
Text File  |  1995-02-26  |  3KB  |  87 lines
  1. ************************************************************
  2. *                                                          *
  3. *            Changes for Risc OS version                   *
  4. *                                                          *
  5. *              Report to Mark Jones from                   *
  6. *               Gavin Wraith  14/02/95                     *
  7. *                                                          *
  8. ************************************************************
  9.  
  10. Many thanks for Hugs.
  11.  
  12. Just to report that Hugs compiled on my Acorn A5000 (Risc OS 3.1), 
  13. despite numerous warnings about dangling elses, etc, with only two
  14. errors, which were dealt with by the first of the following:
  15.  
  16. # Changed first line of parser.c to
  17.  
  18.         extern void *malloc(), *realloc();
  19.  
  20.   to keep ANSI conformant compilers a bit happier.
  21.  
  22. # Changed done() in commonui.c to
  23.  
  24.     Void done() {                    /* Goal has now been achieved       */
  25.         if (useDots) {
  26.             while (maxPos>currPos++)
  27.                 putchar('.');
  28.             putchar('\n');
  29.             aiming = FALSE;
  30.         }
  31.         else
  32.     #ifdef RISCOS
  33.             putchar(' ');
  34.             putchar('-');
  35.             putchar('>');
  36.             putchar(' ');
  37.     #else        
  38.             for (; charCount>0; charCount--) {
  39.                 putchar('\b');
  40.                 putchar(' ');
  41.                 putchar('\b');
  42.             }
  43.     #endif
  44.         fflush(stdout);
  45.     }
  46.  
  47. to avoid unpleasant |H representation of control code '\b' in taskwindows.
  48.  
  49. # Debugged builtin.c, changing primAsinFloat, primAcosFloat and
  50.   primExpFloat to the following:
  51.  
  52.     primFun(primAsinFloat) {         /* Float arc sin (trig) primitive  */
  53.         eval(primArg(1));
  54.         if (whnfFloat>1 || whnfFloat <-1) cantReduce();  /* GCW 18/6/93 */
  55.         updateRoot(mkFloat(asin(whnfFloat)));
  56.     }
  57.  
  58.     primFun(primAcosFloat) {        /* Float arc cos (trig) primitive  */
  59.         eval(primArg(1));
  60.         if (whnfFloat>1 || whnfFloat <-1) cantReduce();   /* GCW 18/6/93 */
  61.         updateRoot(mkFloat(acos(whnfFloat)));
  62.     }
  63.  
  64.     primFun(primExpFloat) {         /* Float exponential primitive     */
  65.         eval(primArg(1));
  66.         if (whnfFloat > 88.02) cantReduce(); /* GCW 18/6/93 */
  67.         updateRoot(mkFloat(exp(whnfFloat)));
  68.     }
  69.  
  70. Hugs now runs with the desktop frontend that I devised for Gofer, so
  71. that scripts and projects can be loaded by dragging their icons into
  72. the Hugs window. I intend to upload it to the Acorn section of Hensa
  73. and to a server at Stuttgart tomorrow.
  74.  
  75. Postscript
  76. ----------
  77.  
  78.    1) In the first upload to Hensa and to Stuttgart I forgot to include
  79.       the Do utility, used in !Hugs.!Run. 
  80.  
  81.    2) Note that scripts such as hs.Ansi that use control codes will
  82.       not work with Hugs in a Risc OS taskwindow. Also, lhs.literate
  83.       has been modified to use h.<filename> rather than <filename>.h,
  84.       and so on. Otherwise, the scripts provided have not been altered
  85.       from the general distribution.
  86.  
  87.